Nuprl Lemma : gcd_p_shift
11,40
postcript
pdf
a
,
b
,
y
,
k
:
. gcd_p(
a
;
b
;
y
)
gcd_p(
a
; (
b
+ (
k
*
a
));
y
)
latex
Definitions
prop{i:l}
,
t
T
,
P
Q
,
gcd_p(
a
;
b
;
y
)
,
P
Q
,
x
:
A
.
B
(
x
)
,
True
,
T
,
P
Q
,
P
Q
Lemmas
divides
wf
,
divisor
of
sum
,
mul
com
,
true
wf
,
squash
wf
,
divisor
of
mul
origin
a,b,y,k:
. gcd_p(a; b; y) 
gcd_p(a; (b + (k * a)); y) a,b,y,k:. gcd_p(a; b; y) gcd_p(a; (b + (k * a)); y) 
T
Q Qx:A. B(x)
T
Q Q